' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.08.29.21.34]) on 2023.09.05 at 23:51 (Coordinated Universal Time)
' Matrix rain by unknown author
' Ported to BASIC Anywhere Machine by Ed Davis

declare sub d(p!, s!, x!, y!)
dim t(80)
for i = 1 to 80
    t(i) = int(-50 * rnd)
next

cls
while 1
    for i = 1 to 80
        if t(i) > 28 then t(i) = 0
        t(i) = t(i) + 1
        y = t(i)
        d(0, 0, i, y - 6)
        d(2, 0, i, y - 5)
        d(2, 0, i, y - 4)
        d(10, 0, i, y - 3)
        d(10, 0, i, y - 2)
        d(11, 0, i, y - 1)
    next

    _delay(0.1)
wend

sub d(p!, s!, x!, y!)
    color p!, s!
    if y! > 0 and y! < 24 then locate y!, x!: print chr$(33 + (x! * y!) mod 200);
end sub